; Music of Narc (1990) (Ocean Software) (Tiny Williams) 
; Ripped by Megachur the 12/11/2006

	write "NARC.BIN"

music_date_rip	equ &0cb6
music_adr	equ &0100
first_theme	equ 1
last_theme	equ 1

	read "music_header_v1_0.asm"

.l0100
	db &01	;#00
.l0101
	db #00
.l0102
	db #00
.l0103
	db #00
.l0104
	db #00
.l0105
	db #10
;
.play_music
;
	push af
	push bc
	push de
	push hl
	call l014d
	call l01c0
	ld a,(l0101)
	or a
	jr nz,l0125
	ld hl,l0732
	ld a,(hl)
	inc h
	or (hl)
	inc h
	or (hl)
	jr z,l0148
	ld a,#01
	ld (l021f),a
.l0125
	ld hl,l021f
	dec (hl)
	ld h,#07
	call l01fd
	inc h
	call l01fd
	inc h
	call l01fd
	call l03ab
	call l0314
	ld hl,l021f
	ld a,(hl)
	or a
	jr nz,l0145
.l0144 equ $ + 1
	ld (hl),#01
.l0145
	call l03bb
.l0148
	pop hl
	pop de
	pop bc
	pop af
	ret
.l014d
	ld a,(l0101)
	or a
	jr nz,l0159
	ld a,(l0100)
;
.init_music     ; a = 1
;
	ld (l015a),a
.l015a equ $ + 1
.l0159
	ld a,#00
	or a
	ret z
	push af
	call l0402
	pop af
	cp #02
	ret nc
	ld (l0101),a
	dec a
	add a
	add a
	add a
	add #31
	ld e,a
	adc #0a
	sub e
	ld d,a
	ld a,(de)
	inc de
	ld (l0144),a
	ld h,#07
	call l0191
	call l0191
	call l0191
	xor a
	ld (l0103),a
	inc a
	ld (l021f),a
	ld a,#10
	ld (l0105),a
	ret
.l0191
	ld l,#05
	ld (hl),#01
	dec l
	xor a
	ld (hl),a
	ld l,#07
	ld (hl),a
	ld l,#09
	ld (hl),a
	ld l,#15
	ld (hl),a
	ld l,#31
	ld (hl),a
	ld a,(de)
	inc de
	ld c,a
	ld a,(de)
	inc de
	ld b,a
	or c
	ret z
	ld l,#02
	ld a,(bc)
	ld (hl),a
	inc bc
	inc l
	ld a,(bc)
	ld (hl),a
	inc bc
	ld l,#00
	ld (hl),c
	inc l
	ld (hl),b
	ld l,#32
	ld (hl),#01
	inc h
	ret
.l01c0
	ld a,(l0102)
	or a
	ret z
	cp #01
	ret nc
	ld c,a
	ld hl,l0732
	ld a,(hl)
	or a
	jr z,l01d9
	inc h
	ld a,(hl)
	or a
	jr z,l01d9
	inc h
	ld a,(hl)
	or a
	ret nz
.l01d9
	inc (hl)
	ld (l0102),a
	ld l,#04
	ld (hl),a
	ld l,#15
	ld (hl),a
	ld a,c
	add a
	add #2b
	ld c,a
	adc #0f
	sub c
	ld b,a
	ld a,(bc)
	ld l,#02
	ld (hl),a
	ld e,a
	inc l
	inc bc
	ld a,(bc)
	ld (hl),a
	ld d,a
	ld l,#16
	ld (hl),#01
	jp l0240
.l01fd
	ld l,#32
	ld a,(hl)
	or a
	ret z
	ld l,#04
	bit 7,(hl)
	jr z,l0219
.l0209 equ $ + 1
	ld a,#00
	dec a
	ld (l0209),a
	jr nz,l0219
	ld l,#20
	ld a,(l0793)
	or (hl)
	ld (l0793),a
.l0219
	ld l,#02
	ld e,(hl)
	inc l
	ld d,(hl)
.l021f equ $ + 1
	ld a,#01
	or a
	jr nz,l022e
	ld l,#05
	dec (hl)
	jr z,l0240
	call l079b
	call l0a14
.l022e
	call l096e
	call l093a
	call l0933
	call l032b
	call l07a6
	jp l08e2
.l0240
	ld a,(de)
	inc de
	or a
	jp m,l0284
.l0246
	ld l,#0c
	ld (hl),a
	ld l,#02
	ld (hl),e
	inc l
	ld (hl),d
	call l07c1
	ld l,#14
	ld a,(hl)
	ld l,#0b
	ld (hl),a
	ld l,#0d
	ld a,(hl)
	ld l,#05
	ld (hl),a
	ld l,#18
	ld (hl),#00
	ld l,#2e
	ld a,(hl)
	dec l
	ld (hl),a
	ld l,#2c
	ld a,(hl)
	dec l
	ld (hl),a
	call l043d
	ld l,#0e
	call l0274
	inc l
.l0274
	ld a,(hl)
	ld c,a
	and #0f
	inc l
	ld (hl),a
	ld a,c
	rra
	rra
	rra
	rra
	and #0f
	inc l
	ld (hl),a
	ret
.l0284
	cp #e0
	jr nc,l02ac
	cp #d0
	jr nc,l02bc
	cp #c0
	jr nc,l02b4
	cp #b0
	jr nc,l02e3
	ld c,h
	add a
	add #33
	ld l,a
	adc #08
	sub l
	ld h,a
	ld a,c
	ld c,(hl)
	inc hl
	ld b,(hl)
	ld h,a
	ld (l02a7),bc
.l02a7 equ $ + 1
	call #0000
	jp l0240
.l02ac
	sub #df
	ld l,#0d
	ld (hl),a
	jp l0240
.l02b4
	sub #c0
	ld l,#14
	ld (hl),a
	jp l0240
.l02bc
	sub #d0
	ld l,#14
	ld (hl),a
	ex de,hl
	ld e,#0e
	ldi
	ld e,#11
	ldi
	ex de,hl
	ld a,(de)
	rra
	rra
	rra
	rra
	and #0f
	ld l,#19
	ld (hl),a
	inc l
	ld (hl),a
	ld a,(de)
	and #0f
	ld l,#1b
	ld (hl),a
	inc l
	ld (hl),a
	inc de
	jp l0240
.l02e3
	sub #b0
	add a
	add #3c
	ld c,a
	adc #05
	sub c
	ld b,a
	ld a,(bc)
	ld l,#21
	ld (hl),a
	inc l
	inc bc
	ld a,(bc)
	ld (hl),a
	inc l
	ld (hl),#00
	ld l,#04
	set 0,(hl)
	jp l0240
	pop af
	call l0792
	ld a,(l0793)
	or c
	ld (l0793),a
	ld l,#32
	ld (hl),#00
	ret
	ld l,#04
	res 0,(hl)
	ret
.l0314
	ld hl,l0328
	dec (hl)
	ret p
	xor a
	ld (hl),a
	inc hl
	cp (hl)
	ret z
	dec (hl)
	inc hl
	ld a,(l0431)
	add (hl)
	ld (l0431),a
	ret
.l0328
	db #00
.l0329
	db #00
.l032a
	db #00
.l032c equ $ + 1
.l032b
	ld a,#55
	rrca
	ld (l032c),a
	ret c
	dec de
	ld a,(de)
	inc de
	cp #8e
	jr z,l0343
	ld l,#0d
	ld a,(hl)
	ld l,#2a
	sub (hl)
	ld l,#05
	cp (hl)
	ret c
.l0343
	ld l,#04
	bit 3,(hl)
	ret z
	ld l,#30
	ld a,(hl)
	or a
	jr z,l0359
	dec l
	dec (hl)
	jr nz,l0359
	inc l
	ld a,(hl)
	dec l
	ld (hl),a
	ld l,#2b
	inc (hl)
.l0359
	ld l,#04
	bit 6,(hl)
	jr z,l0379
	ld l,#2d
	dec (hl)
	jr nz,l036d
	inc l
	ld a,(hl)
	dec l
	ld (hl),a
	ld l,#04
	res 6,(hl)
	ret
.l036d
	ld l,#2b
	ld a,(hl)
	ld l,#07
	add (hl)
	ld (hl),a
	ret nc
	ld l,#09
	inc (hl)
	ret
.l0379
	ld l,#2d
	dec (hl)
	jr nz,l0387
	inc l
	ld a,(hl)
	dec l
	ld (hl),a
	ld l,#04
	set 6,(hl)
	ret
.l0387
	ld l,#07
	ld a,(hl)
	ld l,#2b
	sub (hl)
	ld l,#07
	ld (hl),a
	ret nc
	ld l,#09
	dec (hl)
	ret
	ld l,#04
	res 5,(hl)
	ret
	ld a,#35
	ld (l0103),a
	ld (l0104),a
	ret
	ld a,(de)
	ld l,#31
	ld (hl),a
	inc de
	ret
.l03a9
	inc (hl)
	ret
.l03ab
	ld hl,l0103
	ld a,(hl)
	or a
	ret z
	inc hl
	dec (hl)
	ret nz
	ld (hl),a
	inc hl
	dec (hl)
	ret p
	inc (hl)
	jr l0402
.l03bb
	call l0423
	ld h,#07
	call l03c9
	inc h
	call l03c9
	ld h,#09
.l03c9
	ld l,#06
	call l03e5
	call l03e5
	ld a,(l0105)
	add a
	ret z
	ld b,(hl)
	inc l
	add a
	add a
	add a
	add (hl)
	push hl
	ld l,a
	ld h,#06
	ld a,b
	ld c,(hl)
	pop hl
	jr l03e9
.l03e5
	ld a,(hl)
	inc l
	ld c,(hl)
	inc l
.l03e9
	ld b,d
	out (c),a
.l03ed equ $ + 1
	ld a,#c0
	ld b,e
	out (c),a
	and #3f
	out (c),a
	ld b,d
	out (c),c
	ld b,e
	ld c,a
	or #80
	out (c),a
	out (c),c
	ret
	pop af
;
.stop_music
.l0402
;
	xor a
	ld (l0101),a
	ld (l015a),a
	ld (l0100),a
	ld (l0732),a
	ld (l0832),a
	ld (l0932),a
	ld (l0731),a
	ld (l0831),a
	ld (l0931),a
	ld a,#3f
	ld (l0793),a
.l0423
	ld de,#f4f6
	ld b,e
	in a,(c)
	or #c0
	ld (l03ed),a
	ld a,#06
.l0431 equ $ + 1
	ld c,#01
	call l03e9
	ld a,(l0793)
	ld c,a
	ld a,#07
	jr l03e9
.l043d
	ld l,#04
	bit 7,(hl)
	ret z
.l0443 equ $ + 1
	ld a,#00
	ld (l0431),a
	xor a
	ld (l0328),a
	ld (l0329),a
	ld (l032a),a
	ld a,#01
	ld (l0209),a
	ld l,#20
	ld a,(hl)
	cpl
	ld c,a
	ld a,(l0793)
	and c
	ld (l0793),a
	ret
	ld l,#15
	ld (hl),#01
	ret
	ld l,#15
	ld (hl),#ff
	ret
	ld l,#04
	set 7,(hl)
	ret
	ld a,(de)
	inc de
	ld (l0443),a
	ret
	ex de,hl
	ld e,#27
	ldi
	ldi
	ld e,#24
	ldi
	ldi
	ld e,#29
	ldi
	ex de,hl
	ld l,#04
	set 2,(hl)
	ret
	ld l,#04
	res 2,(hl)
	ret
	dw #077c,#0710,#06ab,#064b
	dw #05f1,#059b,#054b,#04ff
	dw #04b7,#0473,#0433,#03f7
	dw #03be,#0388,#0355,#0326
	dw #02f8,#02ce,#02a5,#027f
	dw #025c,#023a,#021a,#01fb
	dw #01df,#01c4,#01ab,#0193
	dw #017c,#0167,#0153,#0140
	dw #012e,#011d,#010d,#00fe
	dw #00f0,#00e2,#00d5,#00c9
	dw #00be,#00b3,#00a9,#00a0
	dw #0097,#008e,#0086,#007f
	dw #0078,#0071,#006b,#0065
	dw #005f,#005a,#0055,#0050
	dw #004b,#0047,#0043,#003f
	dw #003c,#0039,#0035,#0032
	dw #0030,#002d,#002a,#0028
	dw #0026,#0024,#0022,#0020
	dw #001e,#001c,#001b,#0019
	dw #0018,#0016,#0015,#0014
	dw #0013,#0012,#0011,#0010
	dw l054e,l0558,l055c,l0560
	dw l0564,l0568,l056c,l0570
	dw l0576
.l054e
	db #00,#0c,#01,#0d,#02,#0e,#01,#0d
	db #00,#8c
.l0558
	db #00,#00,#05,#85
.l055c
	db #0c,#0c,#00,#80
.l0560
	db #00,#00,#02,#82
.l0564
	db #00,#00,#07,#87
.l0568
	db #00,#00,#03,#83
.l056c
	db #00,#00,#04,#84
.l0570
	db #00,#00,#03,#03,#07,#87
.l0576
	db #79,#6e,#69,#54,#20,#39,#38,#39
	db #31,#20,#28,#63,#29,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#01,#02,#03,#04,#05
	db #06,#07,#08,#09,#0a,#0b,#0c,#0d
	db #0e,#0f,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#01,#01,#01,#01,#01,#01
	db #01,#01,#00,#00,#00,#00,#00,#00
	db #01,#01,#01,#01,#01,#02,#02,#02
	db #02,#02,#00,#00,#00,#00,#01,#01
	db #01,#01,#02,#02,#02,#02,#03,#03
	db #03,#03,#00,#00,#00,#00,#01,#01
	db #01,#02,#02,#02,#03,#03,#03,#04
	db #04,#04,#00,#00,#00,#01,#01,#01
	db #02,#02,#03,#03,#03,#04,#04,#04
	db #05,#05,#00,#00,#00,#01,#01,#02
	db #02,#03,#03,#03,#04,#04,#05,#05
	db #06,#06,#00,#00,#01,#01,#02,#02
	db #03,#03,#04,#04,#05,#05,#06,#06
	db #07,#07,#00,#00,#01,#01,#02,#02
	db #03,#03,#04,#05,#05,#06,#06,#07
	db #07,#08,#00,#00,#01,#01,#02,#03
	db #03,#04,#05,#05,#06,#06,#07,#08
	db #08,#09,#00,#00,#01,#02,#02,#03
	db #04,#04,#05,#06,#06,#07,#08,#08
	db #09,#0a,#00,#00,#01,#02,#03,#03
	db #04,#05,#06,#06,#07,#08,#09,#09
	db #0a,#0b,#00,#00,#01,#02,#03,#04
	db #04,#05,#06,#07,#08,#08,#09,#0a
	db #0b,#0c,#00,#00,#01,#02,#03,#04
	db #05,#06,#07,#07,#08,#09,#0a,#0b
	db #0c,#0d,#00,#00,#01,#02,#03,#04
	db #05,#06,#07,#08,#09,#0a,#0b,#0c
	db #0d,#0e,#00,#00,#00,#00,#00,#00
	db #00,#00,#01,#00,#08,#0f,#00,#04
	db #00,#00,#00,#00,#00,#00,#0f,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#01,#08,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00
.l0731
	db #00
.l0732
	db #00
.l0733
	call l0792
	ld l,#1f
.l0738
	ld a,(hl)
.l0739
	cpl
	and c
	ld (l0793),a
	ld l,#04
	res 4,(hl)
	res 0,(hl)
	ret
	call l075c
	call l0792
	ld l,#20
	jr l0738
	call l075c
.l0752
	call l0792
	ld l,#1f
	ld a,(hl)
	inc l
	or (hl)
	jr l0739
.l075c
	ld a,(de)
	inc de
	ld (l0431),a
	ld a,(de)
	inc de
	ld (l032a),a
	ld a,(de)
	inc de
	ld (l0328),a
	ld a,(de)
	inc de
	ld (l0329),a
	ret
	call l0792
	ld l,#20
	ld a,(hl)
	cpl
	and c
	ld (l0793),a
	ld l,#04
	set 4,(hl)
	ret
	ld l,#0b
	ld (hl),#00
	pop af
	ld l,#0d
	ld a,(hl)
	ld l,#05
	ld (hl),a
	ld l,#02
	ld (hl),e
	inc l
	ld (hl),d
	ret
.l0793 equ $ + 1
.l0792
	ld a,#3f
	ld l,#1f
	or (hl)
	inc l
	or (hl)
	ld c,a
	ret
.l079b
	ld l,#15
	ld a,(hl)
	or a
	ret z
	ld l,#0c
	add (hl)
	ld (hl),a
	jr l07c1
.l07a6
	ld l,#04
	bit 0,(hl)
	ret z
	ld l,#21
	ld a,(hl)
	inc l
	ld b,(hl)
	inc l
	add (hl)
	ld c,a
	jr nc,l07b6
	inc b
.l07b6
	inc (hl)
	ld a,(bc)
	or a
	jp p,l07be
	ld (hl),#00
.l07be
	ld l,#0c
	add (hl)
.l07c1
	ld l,#31
	add (hl)
	add a
	add #94
	ld c,a
	adc #04
	sub c
	ld b,a
	ld a,(bc)
	inc bc
	ld l,#07
	ld (hl),a
	ld a,(bc)
	ld l,#09
	ld (hl),a
	ld l,#04
	bit 2,(hl)
	jr z,l07f5
	push de
	ld l,#27
	ld e,(hl)
	inc l
	ld d,(hl)
	ld l,#07
	ld c,(hl)
	ld l,#09
	ld b,(hl)
	ex de,hl
	add hl,bc
	ex de,hl
	ld (hl),d
	ld l,#07
	ld (hl),e
	pop de
	ld l,#29
	ld a,(hl)
	ld l,#26
	ld (hl),a
.l07f5
	ld l,#04
	bit 5,(hl)
	ret z
	res 1,(hl)
	ret
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#02,#00,#03,#00,#09,#0f,#00
	db #04,#00,#00,#00,#00,#00,#00,#0f
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#02,#10,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00
.l0831
	db #00
.l0832
	db #00
.l0833
	db #bc,#08,#63,#04,#68,#04,#86,#08
	db #0f,#03,#a5,#08,#78,#04,#8f,#04
	db #6b,#08,#f5,#08,#33,#07,#45,#07
	db #4f,#07,#71,#07,#85,#07,#81,#07
	db #a3,#03,#01,#04,#c1,#09,#ef,#09
	db #b4,#08,#ff,#02,#95,#03,#9a,#03
	db #6d,#04,#fa,#08,#9f,#08,#72,#04
	ex de,hl
	ld e,#2a
	ldi
	ld a,(hl)
	ldi
	ld (de),a
	inc e
	ld a,(hl)
	ldi
	ld (de),a
	inc e
	ld a,(hl)
	ldi
	ld (de),a
	ex de,hl
	ld l,#04
	set 3,(hl)
	set 6,(hl)
	ret
	ld a,(de)
	inc de
	ld l,#16
	ld (hl),a
	ld a,(de)
	rra
	rra
	rra
	rra
	and #0f
	ld l,#1d
	ld (hl),a
	inc l
	ld (hl),a
	ld a,(de)
	and #0f
	ld l,#17
	ld (hl),a
	inc de
	ret
	ld l,#04
	set 5,(hl)
	jr l08a9
	ld l,#04
	set 1,(hl)
.l08a9
	ex de,hl
	ld e,#24
	ldi
	ldi
	ldi
	ex de,hl
	ret
	ld l,#00
	ex de,hl
	ldi
	ldi
	ex de,hl
	ld a,(l0100)
	ld (l015a),a
	ld l,#00
	ld c,(hl)
	inc l
	ld b,(hl)
	ld a,(bc)
	ld e,a
	inc bc
	ld a,(bc)
	inc bc
	ld d,a
	or e
	jr z,l08d9
	ld (hl),b
	dec l
	ld (hl),c
	inc l
	inc l
	ld (hl),e
	inc l
	ld (hl),d
	ret
.l08d9
	ld d,b
	ld e,c
	pop bc
	ld a,(l0f22)
	jp l0284
.l08e2
	ld l,#04
	bit 4,(hl)
	ret z
	ld l,#1f
	ld a,(hl)
	inc l
	or (hl)
	ld c,a
	ld a,(l0793)
	xor c
	ld (l0793),a
	ret
	ld l,#04
	res 3,(hl)
	ret
	ld l,#04
	res 7,(hl)
	ret
	db #00,#00,#00,#00,#00,#00,#00,#04
	db #00,#05,#00,#0a,#0f,#00,#04,#00
	db #00,#00,#00,#00,#00,#0f,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #04,#20,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00
.l0931
	db #00
.l0932
	db #00
.l0933
	ld l,#04
	bit 2,(hl)
	jr nz,l093f
	ret
.l093a
	ld l,#04
	bit 1,(hl)
	ret z
.l093f
	ld l,#26
	dec (hl)
	jp m,l03a9
	ld l,#25
	bit 7,(hl)
	jr nz,l095a
	ld l,#24
	ld a,(hl)
	ld l,#07
	add (hl)
	ld (hl),a
	ld l,#25
	ld a,(hl)
	ld l,#09
	adc (hl)
	ld (hl),a
	ret
.l095a
	ld l,#07
	ld a,(hl)
	ld l,#24
	sub (hl)
	ld l,#07
	ld (hl),a
	ld l,#25
	ld c,(hl)
	res 7,c
	ld l,#09
	ld a,(hl)
	sbc c
	ld (hl),a
	ret
.l096e
	ld l,#0f
	ld a,(hl)
	or a
	jr z,l0989
	ld l,#19
	dec (hl)
	ret nz
	inc l
	ld a,(hl)
	dec l
	ld (hl),a
	ld l,#0f
	dec (hl)
	inc l
	ld a,(hl)
	ld l,#0b
	add (hl)
	cp #0f
	ret nc
	ld (hl),a
	ret
.l0989
	ld l,#12
	ld a,(hl)
	or a
	jr z,l09a7
	ld l,#1b
	dec (hl)
	ret nz
	inc l
	ld a,(hl)
	dec l
	ld (hl),a
	ld l,#12
	dec (hl)
	ld l,#0b
	ld a,(hl)
	ld l,#13
	sub (hl)
	jr nc,l09a3
	xor a
.l09a3
	ld l,#0b
	ld (hl),a
	ret
.l09a7
	ld l,#18
	ld a,(hl)
	or a
	ret z
	ld l,#1d
	dec (hl)
	ret nz
	inc l
	ld a,(hl)
	dec l
	ld (hl),a
	ld l,#0b
	ld a,(hl)
	ld l,#17
	sub (hl)
	jr nc,l09bd
	xor a
.l09bd
	ld l,#0b
	ld (hl),a
	ret
	pop af
	call l0752
	ld a,#1f
	ld (l0431),a
	xor a
	ld (l0328),a
	ld a,#e1
	ld (l032a),a
	ld a,#03
	ld (l0329),a
	ld l,#21
	ld (hl),#4e
	inc l
	ld (hl),#05
	ld l,#04
	set 0,(hl)
	set 1,(hl)
	res 7,(hl)
	ld a,#1a
	ld l,#31
	sub (hl)
	jp l0246
	pop af
	call l0733
	ld l,#24
	ld (hl),#70
	inc l
	ld (hl),#00
	inc l
	ld (hl),#0c
	ld l,#04
	set 1,(hl)
	ld l,#21
	ld (hl),#4e
	inc l
	ld (hl),#05
	ld l,#04
	set 0,(hl)
	ld a,#09
	ld l,#31
	sub (hl)
	jp l0246
.l0a14
	ld l,#16
	ld a,(hl)
	ld l,#05
	cp (hl)
	ret nz
	ld a,(de)
	cp #8e
	ret z
	ld l,#18
	ld (hl),#01
	ld l,#15
	ld (hl),#00
	ld l,#04
	res 1,(hl)
	bit 5,(hl)
	ret z
	set 1,(hl)
	ret
	db #02,#40,#0a,#64,#0a,#86,#0a,#02
	db #02,#54,#0a,#76,#0a,#96,#0a,#a6
	db #0a,#de,#0a,#de,#0a,#de,#0a,#c8
	db #0b,#c8,#0b,#31,#0b,#46,#0b,#de
	db #0a,#de,#0a,#de,#0a,#c8,#0b,#c8
	db #0b,#31,#0b,#46,#0b,#58,#0b,#00
	db #00,#40,#0a,#6a,#0b,#a8,#0b,#c8
	db #0b,#c8,#0b,#30,#0c,#73,#0c,#ae
	db #0c,#a8,#0b,#c8,#0b,#c8,#0b,#c0
	db #0c,#73,#0c,#ae,#0c,#16,#0d,#16
	db #0d,#00,#00,#64,#0a,#55,#0d,#78
	db #0d,#a3,#0d,#a3,#0d,#17,#0e,#73
	db #0e,#78,#0d,#da,#0d,#a3,#0d,#da
	db #0d,#17,#0e,#73,#0e,#81,#0e,#81
	db #0e,#00,#00,#86,#0a,#df,#00,#1f
	db #11,#83,#01,#11,#eb,#92,#92,#e3
	db #92,#92,#eb,#92,#92,#df,#00,#28
	db #11,#e1,#92,#92,#df,#00,#1f,#11
	db #e3,#92,#df,#00,#1f,#11,#eb,#92
	db #92,#e3,#92,#92,#eb,#92,#92,#df
	db #00,#28,#11,#e1,#92,#92,#df,#00
	db #1f,#11,#e3,#92,#80,#dd,#00,#34
	db #12,#8a,#83,#01,#11,#87,#99,#88
	db #00,#02,#02,#00,#90,#0c,#e1,#1d
	db #1d,#1d,#1d,#1d,#1f,#1d,#20,#1d
	db #22,#1d,#1d,#1d,#1d,#1d,#1d,#1d
	db #1d,#1d,#1d,#1d,#1f,#1d,#20,#1d
	db #22,#1d,#1d,#1d,#1d,#1d,#1d,#1d
	db #1d,#1d,#1d,#1d,#1f,#1d,#20,#1d
	db #22,#1d,#1d,#1d,#1d,#1d,#1d,#1d
	db #1d,#1d,#1d,#1d,#1f,#1d,#20,#1d
	db #22,#1d,#1d,#1d,#1d,#1d,#1d,#80
	db #de,#00,#12,#15,#8a,#b4,#90,#00
	db #eb,#22,#22,#e7,#22,#f7,#20,#e7
	db #20,#ff,#b1,#22,#80,#df,#00,#1f
	db #12,#8a,#90,#f4,#b2,#e3,#8f,#24
	db #24,#8e,#24,#24,#8e,#24,#80,#de
	db #00,#12,#15,#8a,#b4,#90,#00,#ff
	db #20,#1f,#1d,#8e,#20,#1f,#1d,#8e
	db #80,#de,#00,#1f,#12,#8a,#83,#01
	db #11,#9b,#00,#86,#f0,#ff,#08,#00
	db #02,#98,#e1,#8f,#e3,#11,#11,#11
	db #11,#11,#11,#e5,#8f,#e1,#8f,#e3
	db #11,#11,#11,#11,#11,#11,#e5,#8f
	db #e1,#8f,#e3,#11,#11,#11,#11,#11
	db #11,#e5,#8f,#e1,#8f,#e3,#11,#11
	db #11,#11,#11,#11,#e5,#8f,#80,#df
	db #00,#1f,#12,#8a,#99,#87,#e7,#8f
	db #92,#8f,#92,#e7,#8f,#92,#8f,#e3
	db #92,#92,#e7,#8f,#92,#8f,#92,#e7
	db #8f,#92,#8f,#e3,#92,#92,#80,#df
	db #00,#18,#12,#8a,#83,#01,#11,#b1
	db #90,#0c,#e3,#1d,#1d,#df,#00,#1f
	db #12,#92,#df,#00,#18,#12,#8a,#b1
	db #1d,#8f,#1d,#df,#00,#1f,#12,#92
	db #df,#00,#18,#12,#8a,#b1,#1d,#8f
	db #1d,#df,#00,#1f,#12,#92,#df,#00
	db #18,#12,#8a,#b1,#1d,#8f,#eb,#1b
	db #e3,#1d,#1d,#df,#00,#1f,#12,#92
	db #df,#00,#18,#12,#8a,#b1,#1d,#8f
	db #1d,#df,#00,#1f,#12,#92,#df,#00
	db #18,#12,#8a,#b1,#1d,#8f,#1d,#df
	db #00,#1f,#12,#92,#df,#00,#18,#12
	db #8a,#b1,#1d,#8f,#eb,#1b,#80,#d4
	db #1b,#00,#53,#8a,#83,#01,#11,#88
	db #04,#01,#02,#00,#86,#fd,#ff,#01
	db #00,#02,#90,#00,#fb,#29,#8e,#e7
	db #db,#14,#00,#23,#24,#da,#15,#00
	db #63,#83,#04,#31,#ff,#2f,#8e,#d4
	db #1b,#00,#53,#83,#01,#11,#fb,#29
	db #8e,#e7,#db,#14,#00,#23,#30,#db
	db #14,#00,#63,#83,#04,#31,#ff,#33
	db #8e,#80,#df,#00,#11,#24,#8a,#83
	db #01,#11,#90,#f4,#86,#fa,#ff,#03
	db #00,#02,#88,#04,#03,#02,#00,#e0
	db #33,#34,#e1,#35,#e3,#33,#30,#88
	db #04,#01,#02,#00,#e0,#33,#34,#ed
	db #35,#e3,#37,#8e,#8e,#8e,#e7,#38
	db #e3,#37,#30,#83,#04,#21,#e0,#30
	db #32,#f0,#33,#8e,#80,#df,#00,#1f
	db #12,#8a,#b2,#90,#f4,#e3,#8f,#28
	db #28,#8e,#28,#28,#8e,#28,#80,#d5
	db #1a,#00,#43,#8a,#83,#01,#11,#88
	db #08,#01,#02,#00,#90,#00,#f3,#29
	db #8e,#dd,#12,#00,#23,#e3,#27,#24
	db #27,#29,#30,#f0,#2f,#8e,#8e,#8e
	db #e3,#29,#2c,#30,#88,#08,#01,#01
	db #00,#e0,#30,#32,#f5,#33,#e3,#29
	db #2c,#24,#27,#29,#30,#ec,#2f,#87
	db #de,#11,#00,#13,#e0,#30,#31,#32
	db #dc,#13,#00,#23,#83,#08,#31,#9a
	db #07,#00,#10,#88,#08,#01,#02,#00
	db #f9,#33,#8e,#96,#80,#db,#13,#00
	db #23,#84,#83,#01,#11,#86,#fa,#ff
	db #03,#00,#02,#88,#04,#01,#02,#00
	db #90,#00,#e0,#30,#32,#f5,#33,#e7
	db #35,#ff,#30,#db,#13,#00,#11,#e0
	db #2c,#2e,#e1,#2f,#e3,#2e,#2c,#eb
	db #29,#e0,#2c,#2e,#e1,#2f,#e3,#2e
	db #2c,#88,#08,#01,#02,#06,#83,#04
	db #21,#fb,#29,#80,#df,#00,#18,#12
	db #8a,#83,#01,#11,#88,#00,#02,#01
	db #00,#b5,#eb,#1f,#1f,#e7,#1f,#eb
	db #1f,#1f,#e7,#1f,#eb,#1f,#1f,#e7
	db #1f,#eb,#1f,#1f,#e7,#1f,#80,#de
	db #00,#1f,#13,#8a,#98,#e3,#11,#11
	db #13,#11,#16,#e7,#14,#e3,#11,#8e
	db #11,#13,#11,#16,#e7,#14,#e3,#11
	db #8e,#11,#13,#11,#16,#e7,#14,#e3
	db #11,#8e,#11,#13,#11,#16,#14,#13
	db #11,#80,#de,#00,#1f,#13,#8a,#98
	db #e3,#11,#11,#13,#11,#16,#e7,#14
	db #e3,#11,#8e,#11,#13,#11,#16,#14
	db #df,#00,#1f,#12,#92,#92,#de,#00
	db #1f,#13,#8a,#98,#11,#11,#13,#11
	db #16,#e7,#14,#e3,#11,#8e,#11,#13
	db #11,#16,#14,#de,#00,#1f,#12,#92
	db #92,#de,#00,#1f,#13,#8a,#98,#e3
	db #11,#11,#13,#11,#16,#e7,#14,#e3
	db #11,#8e,#11,#13,#11,#16,#14,#df
	db #00,#1f,#12,#92,#92,#de,#00,#1f
	db #13,#8a,#98,#11,#11,#13,#11,#16
	db #e7,#14,#e3,#11,#8e,#11,#13,#11
	db #16,#14,#dc,#00,#27,#11,#e1,#92
	db #cd,#92,#cf,#92,#92,#80,#df,#00
	db #1f,#13,#8a,#e3,#98,#0a,#0a,#df
	db #00,#1f,#12,#92,#df,#00,#1f,#13
	db #8a,#98,#16,#14,#16,#df,#00,#1f
	db #12,#92,#df,#00,#1f,#13,#8a,#98
	db #0a,#08,#8e,#df,#00,#1f,#12,#92
	db #df,#00,#1f,#13,#8a,#98,#08,#8e
	db #08,#df,#00,#1f,#12,#92,#df,#00
	db #1f,#13,#8a,#98,#14,#0f,#8e,#df
	db #00,#1f,#12,#92,#df,#00,#1f,#13
	db #8a,#98,#0f,#0f,#8e,#df,#00,#1f
	db #12,#92,#df,#00,#1f,#13,#8a,#98
	db #0f,#80,#df,#00,#1f,#12,#e3,#8f
	db #92,#92,#8e,#92,#92,#8e,#92,#80
	db #df,#00,#1f,#13,#8a,#e3,#98,#14
	db #14,#df,#00,#1f,#12,#92,#df,#00
	db #1f,#13,#8a,#98,#14,#19,#17,#df
	db #00,#1f,#12,#92,#df,#00,#1f,#13
	db #8a,#98,#14,#13,#13,#df,#00,#1f
	db #12,#92,#df,#00,#1f,#13,#8a,#98
	db #13,#13,#13,#df,#00,#1f,#11,#e1
	db #92,#92,#df,#00,#1f,#12,#e3,#92
	db #df,#00,#1f,#13,#8a,#98,#11,#11
	db #df,#00,#1f,#12,#92,#df,#00,#1f
	db #13,#8a,#98,#11,#16,#14,#df,#00
	db #1f,#12,#92,#df,#00,#1f,#13,#8a
	db #98,#11,#11,#11,#df,#00,#1f,#12
	db #92,#df,#00,#1f,#13,#8a,#98,#11
	db #16,#14,#da,#00,#1f,#11,#e1,#92
	db #cc,#92,#ce,#92,#cf,#92,#80,#e3
	db #0a,#0a,#16,#8e,#14,#16,#8e,#0a
	db #08,#8e,#08,#08,#8e,#08,#8e,#14
	db #0f,#8e,#0f,#0f,#0f,#8e,#0f,#8f
	db #80,#23,#0f,#00,#00,#1a,#0f,#97
.l0f22 equ $ + 1
	db #80,#94,#ff,#8f,#8f,#8f,#8f,#8f
	db #8f,#8f,#8f,#80,#dc,#cc,#a8,#00
	db #cc,#cc,#cc,#cc,#cc,#cc,#cc,#cc
	db #cc,#00,#00,#c0,#c0,#c0,#c0,#c0
	db #c0,#c0,#c0,#c0,#00,#00,#00,#3c
	db #3c,#3c,#3c,#3c,#3c,#3c,#00,#00
	db #00,#00,#6c,#fc,#ec,#fc,#ec,#fc
	db #ec,#00,#00,#00,#00,#6c,#cc,#ec
	db #ec,#cc,#cc,#ec,#00,#00,#00,#00
	db #6c,#dc,#ec,#fc,#ec,#cc,#ec,#00
	db #00,#00,#00,#6c,#cc,#ec,#cc,#ec
	db #dc,#cc,#00,#00,#00,#00,#6c,#fc
	db #ec,#fc,#ec,#dc,#cc,#00,#00,#00
	db #00,#6c,#cc,#cc,#cc,#cc,#cc,#cc
	db #00,#00,#00,#00,#c0,#c0,#c0,#c0
	db #c0,#c0,#c0,#00,#00,#00,#00,#ec
	db #cc,#cc,#cc,#cc,#cc,#a8,#00,#00
	db #00,#00,#54,#9c,#3c,#3c,#3c,#dc
	db #00,#00,#00,#00,#00,#00,#ec,#ec
	db #cc,#c4,#a8,#00,#00,#00,#00,#00
	db #00,#54,#dc,#c8,#dc,#00,#00,#00
	db #00,#00,#00,#00,#00,#ec,#ec,#a8
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #54,#dc,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#01,#00,#00,#00,#00,#00,#00
	db #00,#00,#01,#05,#10,#48,#02,#80
	db #66,#05,#80,#60,#04,#40,#4d,#08
	db #08,#51,#08,#20,#41,#04,#04,#4f
	db #03,#08,#50,#25,#42,#14,#60,#22
	db #09,#75,#72,#08,#05,#24,#07,#80
	db #57,#06,#50,#34,#05,#60,#22,#04
	db #85,#46,#03,#20,#37,#02,#10,#01
	db #01,#05,#96,#00,#60,#89,#00,#30
	db #77,#00,#05,#62,#00,#70,#54,#00
	db #05,#47,#00,#65,#33,#00,#35,#26
	db #00,#50,#11,#00,#25,#09,#00,#44
	db #4d,#4c,#53,#47,#4d,#53,#2a,#50
	db #47,#20,#4d,#53,#4e,#4b,#4e,#45
	db #44,#4b,#45,#4e,#52,#41,#57,#57
	db #41,#5a,#41,#53,#4a,#52,#4f,#4e
	db #4a,#4f,#4e,#52,#54,#48,#44,#41
	db #4e,#4a,#48,#43,#4d,#41,#54,#4a
	db #49,#4d,#4d,#41,#4b,#54,#53,#43
	db #53,#4f,#53
;	di
;	ld a,&01
;	ld (l0100),a
;	ld a,&00
;	ld (l0101),a
;	call init_music
;	ei

;org #1f34
;ld a,#0c
;ld (#0103),a
;ld (#0104),a
;ld b,#c0
;push bc
;call #0106
;pop bc


;org #197f
;ld a,#01
;ld (#0100),a


; play &0106
; &401 ?

.game_name
	db "Narc",0
.game_year
	db "1990",0
.game_publisher
	db "Ocean Software",0
.music_author
	db "Tiny Williams",0
.music_comment
	db "",0

	read "music_end_v1_0.asm"
